home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / misc / emu / Apex-src.lha / PR.XPL < prev    next >
Text File  |  2001-09-30  |  512b  |  32 lines
  1. \PR.XPL
  2. \THIS PROGRAM LISTS A FILE ON THE PRINTER
  3.  
  4. \REVISION HISTORY:
  5. \FEB-10-86, Original.
  6. \APR-10-87, Changed string termination.
  7.  
  8. code    CHIN=7,        CHOUT=8,    TEXT=12,    OPENI=13,
  9.     OPENO=14,    CLOSE=15;
  10.  
  11. int    CH;
  12. def    PR=2, DISK=3;
  13. def    EOF=$1A;
  14.  
  15.  
  16. begin    \MAIN
  17. TEXT(0,"-- FILE PRINT PROGRAM --
  18. ");
  19. OPENI(DISK);
  20. OPENO(PR);
  21. loop    begin
  22.     CH:= CHIN(DISK);
  23.     if CH = EOF then quit;
  24.     CHOUT(PR,CH);
  25.     end;
  26. CLOSE(PR);
  27. end;    \MAIN
  28. ENI(DISK);
  29. OPENO(PR);
  30. loop    begin
  31.     CH:= CHIN(DISK);
  32.     if CH = EOF then quit